%ALLE fouten uitvoeren
clear all;
lijnfout_14_index_Q(1,20);
lijn_uitval_14_index_Q(1,20);
busfout_14_index_Q(1,14);
trafo_uitval_14_index_Q(17,20);

%dips
dips_duur_type_alle_fouten(1,20);
dips_duur_type_busfout(1,14);
dips_lijn_uit(1,20);
dips_trafo_uit(17,20);

%problemen per bus
problemen_per_bus;
load belastingsbussen;
%tijdelijk alle onderbrekingen een vaste duur van 20 minuten... 
lengte_onderbreking = 100000;
for ll = belastingsbussen'

    busnummerstr = num2str(ll);
    w = ['problemen_bus_',busnummerstr];
if exist(w)==1
if isempty(eval(w))~=1

    temp2 = eval(w);
    index_fout = find(temp2(:,6) == 1);
    temp2(index_fout,3) = lengte_onderbreking;
    eval([w ' = temp2']);

end
end
end 

%kosten
kosten_incidenten;
kosten_per_sector;
save problemen